(next-history-element): Set point to the end of the

prompt if minibuffer-prompt-in-buffer.

diff --git a/lisp/simple.el b/lisp/simple.el
index 58e8f5aff42960881dbdecad2f862812ebb6b0dd..a187ebbf8eabcff48b5f7aa9a93c9ff8639771ba 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -824,7 +824,9 @@ An uppercase letter in REGEXP makes the search case-sensitive."
             (let ((print-level nil))
               (prin1-to-string elt))
           elt))
-       (goto-char (point-min)))))
+       (if (boundp 'minibuffer-prompt-in-buffer)
+           (goto-char (minibuffer-prompt-width))
+         (goto-char (point-min))))))
 
 (defun previous-history-element (n)
   "Inserts the previous element of the minibuffer history into the minibuffer."